home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume26 / tclx / part01 next >
Encoding:
Text File  |  1991-11-18  |  50.0 KB  |  1,270 lines
  1. Newsgroups: comp.sources.misc
  2. From: karl@sugar.neosoft.com (Karl Lehenbauer)
  3. Subject:  v26i001:  tclx - extensions and on-line help for tcl 6.1, Part01/23
  4. Message-ID: <csm-v26i001=tclx.184622@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: b4856a9f25d8695a9eb82df818a76656
  6. Date: Tue, 19 Nov 1991 00:50:58 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: karl@sugar.neosoft.com (Karl Lehenbauer)
  10. Posting-number: Volume 26, Issue 1
  11. Archive-name: tclx/part01
  12. Environment: UNIX
  13.  
  14. This is a posting of the source and documentation for Extended
  15. Tcl 6.1a, a companion package to Tcl 6.1, an embeddable tool
  16. command language.
  17.  
  18. Extended Tcl defines a set of extensions and on-line help for
  19. Tcl, the Tool Command Language invented by Dr. John Ousterhout 
  20. of the University of California at Berkeley.
  21.  
  22. To build Extended Tcl, unshar this release so that the
  23. "extended" directory is in the same directory as the "tcl6.1"
  24. directory created by unsharing Berkeley Tcl 6.1, edit 
  25. "extended/Makefile", then do a "make".
  26.  
  27. For more information, see the file "extended/README.EXTD" in
  28. this release.
  29.  
  30. Extended Tcl 6.1a was created by Karl Lehenbauer (karl@NeoSoft.com)
  31. and Mark Diekhans (markd@Grizzly.com).  If you have any problems
  32. with this Usenet distribution or with Extended Tcl 6.1a, contact
  33. Karl or Mark.
  34.  
  35. Regards,
  36. Karl Lehenbauer (karl@NeoSoft.com)
  37.  
  38. #! /bin/sh
  39. # This is a shell archive.  Remove anything before this line, then unpack
  40. # it by saving it into a file and typing "sh file".  To overwrite existing
  41. # files, type "sh file -c".  You can also feed this as standard input via
  42. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  43. # will see the following message at the end:
  44. #        "End of archive 1 (of 23)."
  45. # Contents:  README extended extended/MANIFEST extended/man
  46. #   extended/man/Makefile extended/ossupport extended/src
  47. #   extended/src/patchlevel.h extended/tcllib extended/tcllib/help
  48. #   extended/tcllib/help/commands extended/tcllib/help/commands/expr
  49. #   extended/tcllib/help/commands/llength
  50. #   extended/tcllib/help/commands/pwd extended/tcllib/help/extended
  51. #   extended/tcllib/help/extended/acos
  52. #   extended/tcllib/help/extended/asin
  53. #   extended/tcllib/help/extended/atan
  54. #   extended/tcllib/help/extended/ceil
  55. #   extended/tcllib/help/extended/chgrp
  56. #   extended/tcllib/help/extended/clength
  57. #   extended/tcllib/help/extended/copyfile
  58. #   extended/tcllib/help/extended/cos
  59. #   extended/tcllib/help/extended/cosh
  60. #   extended/tcllib/help/extended/echo
  61. #   extended/tcllib/help/extended/execvp
  62. #   extended/tcllib/help/extended/exp
  63. #   extended/tcllib/help/extended/fabs
  64. #   extended/tcllib/help/extended/floor
  65. #   extended/tcllib/help/extended/fmod
  66. #   extended/tcllib/help/extended/link
  67. #   extended/tcllib/help/extended/log
  68. #   extended/tcllib/help/extended/log10
  69. #   extended/tcllib/help/extended/pow
  70. #   extended/tcllib/help/extended/replicate
  71. #   extended/tcllib/help/extended/rmdir
  72. #   extended/tcllib/help/extended/sin
  73. #   extended/tcllib/help/extended/sinh
  74. #   extended/tcllib/help/extended/sleep
  75. #   extended/tcllib/help/extended/sqrt
  76. #   extended/tcllib/help/extended/tan
  77. #   extended/tcllib/help/extended/tanh
  78. #   extended/tcllib/help/extended/umask
  79. #   extended/tcllib/help/extended/unlink extended/tcllib/help/intro
  80. #   extended/tcllib/help/misc extended/tcllib/help/tcl.tlib
  81. #   extended/tcllib/help/tcl.tlib/dirs
  82. #   extended/tcllib/help/tcl.tlib/intersect
  83. #   extended/tcllib/help/tcl.tlib/popd
  84. #   extended/tcllib/help/tcl.tlib/read_file
  85. #   extended/tcllib/help/tcl.tlib/showproc
  86. #   extended/tcllib/help/tcl.tlib/showprocs
  87. #   extended/tcllib/help/tcl.tlib/union
  88. #   extended/tcllib/help/tcl.tlib/write_file
  89. #   extended/tcllib/help/tclshell
  90. #   extended/tcllib/help/tclshell/autoprocs
  91. #   extended/tcllib/help/tclshell/buildpackagein
  92. #   extended/tcllib/help/tclshell/load
  93. #   extended/tcllib/help/tclshell/packages extended/tclsrc
  94. #   extended/tclsrc/asgnfields.tcl extended/tclsrc/forfile.tcl
  95. #   extended/tests extended/ucbsrc
  96. # Wrapped by karl@one on Wed Nov 13 21:50:09 1991
  97. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  98. if test -f 'README' -a "${1}" != "-c" ; then 
  99.   echo shar: Will not clobber existing file \"'README'\"
  100. else
  101. echo shar: Extracting \"'README'\" \(862 characters\)
  102. sed "s/^X//" >'README' <<'END_OF_FILE'
  103. X
  104. XThis is a posting of the source and documentation for Extended
  105. XTcl 6.1a, a companion package to Tcl 6.1, an embeddable tool
  106. Xcommand language.
  107. X
  108. XExtended Tcl defines a set of extensions and on-line help for
  109. XTcl, the Tool Command Language invented by Dr. John Ousterhout 
  110. Xof the University of California at Berkeley.
  111. X
  112. XTo build Extended Tcl, unshar this release so that the
  113. X"extended" directory is in the same directory as the "tcl6.1"
  114. Xdirectory created by unsharing Berkeley Tcl 6.1, edit 
  115. X"extended/Makefile", then do a "make".
  116. X
  117. XFor more information, see the file "extended/README.EXTD" in
  118. Xthis release.
  119. X
  120. XExtended Tcl 6.1a was created by Karl Lehenbauer (karl@NeoSoft.com)
  121. Xand Mark Diekhans (markd@Grizzly.com).  If you have any problems
  122. Xwith this Usenet distribution or with Extended Tcl 6.1a, contact
  123. XKarl or Mark.
  124. X
  125. XRegards,
  126. XKarl Lehenbauer (karl@NeoSoft.com)
  127. X
  128. END_OF_FILE
  129. if test 862 -ne `wc -c <'README'`; then
  130.     echo shar: \"'README'\" unpacked with wrong size!
  131. fi
  132. # end of 'README'
  133. fi
  134. if test ! -d 'extended' ; then
  135.     echo shar: Creating directory \"'extended'\"
  136.     mkdir 'extended'
  137. fi
  138. if test -f 'extended/MANIFEST' -a "${1}" != "-c" ; then 
  139.   echo shar: Will not clobber existing file \"'extended/MANIFEST'\"
  140. else
  141. echo shar: Extracting \"'extended/MANIFEST'\" \(11288 characters\)
  142. sed "s/^X//" >'extended/MANIFEST' <<'END_OF_FILE'
  143. X   File Name        Archive #    Description
  144. X-----------------------------------------------------------
  145. X README                     1    
  146. X extended                   1    
  147. X extended/MANIFEST          1    
  148. X extended/Makefile         15    
  149. X extended/Makefile.org     15    
  150. X extended/README.EXTD      20    
  151. X extended/man               1    
  152. X extended/man/CmdWrite.man 13    
  153. X extended/man/CreateExte.man  8    
  154. X extended/man/Handles.man  11    
  155. X extended/man/Keylist.man   9    
  156. X extended/man/Makefile      1    
  157. X extended/man/MathErr.man   9    
  158. X extended/man/Memory.man   14    
  159. X extended/man/TclShell.man 20    
  160. X extended/man/TclX.man     23    
  161. X extended/man/extdman.names  2    
  162. X extended/man/tcl.tlib.man  9    
  163. X extended/ossupport         1    
  164. X extended/ossupport/Makefile  2    
  165. X extended/ossupport/strftime.c 10    
  166. X extended/src               1    
  167. X extended/src/Makefile      4    
  168. X extended/src/Makefile.org  5    
  169. X extended/src/Makefile.t    4    
  170. X extended/src/chmod.c      13    
  171. X extended/src/clock.c       7    
  172. X extended/src/cmdloop.c    12    
  173. X extended/src/createExtd.c 11    
  174. X extended/src/debug.c      11    
  175. X extended/src/extendUtil.c 18    
  176. X extended/src/filescan.c   18    
  177. X extended/src/fmath.c      17    
  178. X extended/src/general.c     8    
  179. X extended/src/handles.c    16    
  180. X extended/src/id.c         11    
  181. X extended/src/iocmds.c     22    
  182. X extended/src/list.c       19    
  183. X extended/src/main.c        7    
  184. X extended/src/math.c        8    
  185. X extended/src/matherr.c     4    
  186. X extended/src/patchlevel.h  1    
  187. X extended/src/regexputil.c 17    
  188. X extended/src/signal.c     19    
  189. X extended/src/string.c     14    
  190. X extended/src/tcl++.C       8    
  191. X extended/src/tcl++.h      15    
  192. X extended/src/tclExtdInt.h 10    
  193. X extended/src/tclExtend.h   8    
  194. X extended/src/tclstartup.c 16    
  195. X extended/src/unixcmds.c   17    
  196. X extended/tcllib            1    
  197. X extended/tcllib/8queens.tcl  3    
  198. X extended/tcllib/TclInit.tcl  8    
  199. X extended/tcllib/buildhelp.tcl 16    
  200. X extended/tcllib/buildidx.tcl  5    
  201. X extended/tcllib/help       1    
  202. X extended/tcllib/help/brief 12    
  203. X extended/tcllib/help/commands  1    
  204. X extended/tcllib/help/commands/append  2    
  205. X extended/tcllib/help/commands/array  7    
  206. X extended/tcllib/help/commands/break  2    
  207. X extended/tcllib/help/commands/case  6    
  208. X extended/tcllib/help/commands/catch  4    
  209. X extended/tcllib/help/commands/cd  3    
  210. X extended/tcllib/help/commands/close  3    
  211. X extended/tcllib/help/commands/concat  2    
  212. X extended/tcllib/help/commands/continue  2    
  213. X extended/tcllib/help/commands/env  3    
  214. X extended/tcllib/help/commands/eof  2    
  215. X extended/tcllib/help/commands/error  5    
  216. X extended/tcllib/help/commands/errorCode  7    
  217. X extended/tcllib/help/commands/errorInfo  2    
  218. X extended/tcllib/help/commands/eval  2    
  219. X extended/tcllib/help/commands/exec  7    
  220. X extended/tcllib/help/commands/exit  2    
  221. X extended/tcllib/help/commands/expr  1    
  222. X extended/tcllib/help/commands/file  8    
  223. X extended/tcllib/help/commands/flush  2    
  224. X extended/tcllib/help/commands/for  4    
  225. X extended/tcllib/help/commands/foreach  3    
  226. X extended/tcllib/help/commands/format  4    
  227. X extended/tcllib/help/commands/gets  4    
  228. X extended/tcllib/help/commands/glob  3    
  229. X extended/tcllib/help/commands/global  2    
  230. X extended/tcllib/help/commands/history 10    
  231. X extended/tcllib/help/commands/if  3    
  232. X extended/tcllib/help/commands/incr  2    
  233. X extended/tcllib/help/commands/info 10    
  234. X extended/tcllib/help/commands/join  2    
  235. X extended/tcllib/help/commands/lappend  3    
  236. X extended/tcllib/help/commands/lindex  3    
  237. X extended/tcllib/help/commands/linsert  3    
  238. X extended/tcllib/help/commands/list  3    
  239. X extended/tcllib/help/commands/llength  1    
  240. X extended/tcllib/help/commands/lrange  3    
  241. X extended/tcllib/help/commands/lreplace  4    
  242. X extended/tcllib/help/commands/lsearch  2    
  243. X extended/tcllib/help/commands/lsort  2    
  244. X extended/tcllib/help/commands/open  6    
  245. X extended/tcllib/help/commands/proc  7    
  246. X extended/tcllib/help/commands/puts  3    
  247. X extended/tcllib/help/commands/pwd  1    
  248. X extended/tcllib/help/commands/read  3    
  249. X extended/tcllib/help/commands/regexp  6    
  250. X extended/tcllib/help/commands/regsub  6    
  251. X extended/tcllib/help/commands/rename  2    
  252. X extended/tcllib/help/commands/return  2    
  253. X extended/tcllib/help/commands/scan  3    
  254. X extended/tcllib/help/commands/seek  4    
  255. X extended/tcllib/help/commands/set  4    
  256. X extended/tcllib/help/commands/source  3    
  257. X extended/tcllib/help/commands/split  3    
  258. X extended/tcllib/help/commands/string  9    
  259. X extended/tcllib/help/commands/tell  2    
  260. X extended/tcllib/help/commands/time  2    
  261. X extended/tcllib/help/commands/trace 11    
  262. X extended/tcllib/help/commands/unknown  4    
  263. X extended/tcllib/help/commands/unset  3    
  264. X extended/tcllib/help/commands/uplevel  6    
  265. X extended/tcllib/help/commands/upvar  5    
  266. X extended/tcllib/help/commands/while  3    
  267. X extended/tcllib/help/extended  1    
  268. X extended/tcllib/help/extended/acos  1    
  269. X extended/tcllib/help/extended/alarm  2    
  270. X extended/tcllib/help/extended/asin  1    
  271. X extended/tcllib/help/extended/atan  1    
  272. X extended/tcllib/help/extended/bsearch  4    
  273. X extended/tcllib/help/extended/ceil  1    
  274. X extended/tcllib/help/extended/chgrp  1    
  275. X extended/tcllib/help/extended/chmod  3    
  276. X extended/tcllib/help/extended/chown  3    
  277. X extended/tcllib/help/extended/cindex  2    
  278. X extended/tcllib/help/extended/clength  1    
  279. X extended/tcllib/help/extended/cmdtrace  5    
  280. X extended/tcllib/help/extended/commandloop  4    
  281. X extended/tcllib/help/extended/copyfile  1    
  282. X extended/tcllib/help/extended/cos  1    
  283. X extended/tcllib/help/extended/cosh  1    
  284. X extended/tcllib/help/extended/crange  2    
  285. X extended/tcllib/help/extended/csubstr  2    
  286. X extended/tcllib/help/extended/ctype  6    
  287. X extended/tcllib/help/extended/dup  3    
  288. X extended/tcllib/help/extended/echo  1    
  289. X extended/tcllib/help/extended/execvp  1    
  290. X extended/tcllib/help/extended/exp  1    
  291. X extended/tcllib/help/extended/fabs  1    
  292. X extended/tcllib/help/extended/fcntl  5    
  293. X extended/tcllib/help/extended/floor  1    
  294. X extended/tcllib/help/extended/fmod  1    
  295. X extended/tcllib/help/extended/fmtclock  5    
  296. X extended/tcllib/help/extended/fork  3    
  297. X extended/tcllib/help/extended/fstat  4    
  298. X extended/tcllib/help/extended/getclock  2    
  299. X extended/tcllib/help/extended/id  5    
  300. X extended/tcllib/help/extended/infox  4    
  301. X extended/tcllib/help/extended/keyedlists  4    
  302. X extended/tcllib/help/extended/keyldel  2    
  303. X extended/tcllib/help/extended/keylget  3    
  304. X extended/tcllib/help/extended/keylset  2    
  305. X extended/tcllib/help/extended/kill  2    
  306. X extended/tcllib/help/extended/lempty  2    
  307. X extended/tcllib/help/extended/link  1    
  308. X extended/tcllib/help/extended/log  1    
  309. X extended/tcllib/help/extended/log10  1    
  310. X extended/tcllib/help/extended/loop  5    
  311. X extended/tcllib/help/extended/lvarpop  2    
  312. X extended/tcllib/help/extended/max  2    
  313. X extended/tcllib/help/extended/min  2    
  314. X extended/tcllib/help/extended/mkdir  2    
  315. X extended/tcllib/help/extended/pipe  3    
  316. X extended/tcllib/help/extended/pow  1    
  317. X extended/tcllib/help/extended/random  3    
  318. X extended/tcllib/help/extended/replicate  1    
  319. X extended/tcllib/help/extended/rmdir  1    
  320. X extended/tcllib/help/extended/scancontext  4    
  321. X extended/tcllib/help/extended/scanfile  2    
  322. X extended/tcllib/help/extended/scanmatch  6    
  323. X extended/tcllib/help/extended/select  5    
  324. X extended/tcllib/help/extended/signal  5    
  325. X extended/tcllib/help/extended/sin  1    
  326. X extended/tcllib/help/extended/sinh  1    
  327. X extended/tcllib/help/extended/sleep  1    
  328. X extended/tcllib/help/extended/sqrt  1    
  329. X extended/tcllib/help/extended/system  2    
  330. X extended/tcllib/help/extended/tan  1    
  331. X extended/tcllib/help/extended/tanh  1    
  332. X extended/tcllib/help/extended/times  2    
  333. X extended/tcllib/help/extended/translit  2    
  334. X extended/tcllib/help/extended/umask  1    
  335. X extended/tcllib/help/extended/unlink  1    
  336. X extended/tcllib/help/extended/wait  3    
  337. X extended/tcllib/help/help  5    
  338. X extended/tcllib/help/intro  1    
  339. X extended/tcllib/help/intro/backslash  7    
  340. X extended/tcllib/help/intro/braces  5    
  341. X extended/tcllib/help/intro/brackets  5    
  342. X extended/tcllib/help/intro/comments  3    
  343. X extended/tcllib/help/intro/data_types  4    
  344. X extended/tcllib/help/intro/dollar  7    
  345. X extended/tcllib/help/intro/double_quotes  4    
  346. X extended/tcllib/help/intro/expressions 13    
  347. X extended/tcllib/help/intro/procedures  3    
  348. X extended/tcllib/help/intro/regexps  8    
  349. X extended/tcllib/help/intro/results  7    
  350. X extended/tcllib/help/intro/semi-colons  2    
  351. X extended/tcllib/help/intro/syntax  6    
  352. X extended/tcllib/help/intro/variables  6    
  353. X extended/tcllib/help/misc  1    
  354. X extended/tcllib/help/misc/memory  7    
  355. X extended/tcllib/help/tcl.tlib  1    
  356. X extended/tcllib/help/tcl.tlib/assign_fields  3    
  357. X extended/tcllib/help/tcl.tlib/dirs  1    
  358. X extended/tcllib/help/tcl.tlib/edprocs  2    
  359. X extended/tcllib/help/tcl.tlib/for_array_keys  2    
  360. X extended/tcllib/help/tcl.tlib/for_file  2    
  361. X extended/tcllib/help/tcl.tlib/for_recursive_  2    
  362. X extended/tcllib/help/tcl.tlib/intersect  1    
  363. X extended/tcllib/help/tcl.tlib/intersect3  2    
  364. X extended/tcllib/help/tcl.tlib/lrmdups  2    
  365. X extended/tcllib/help/tcl.tlib/popd  1    
  366. X extended/tcllib/help/tcl.tlib/pushd  2    
  367. X extended/tcllib/help/tcl.tlib/read_file  1    
  368. X extended/tcllib/help/tcl.tlib/recursive_glob  2    
  369. X extended/tcllib/help/tcl.tlib/saveprocs  2    
  370. X extended/tcllib/help/tcl.tlib/showproc  1    
  371. X extended/tcllib/help/tcl.tlib/showprocs  1    
  372. X extended/tcllib/help/tcl.tlib/union  1    
  373. X extended/tcllib/help/tcl.tlib/write_file  1    
  374. X extended/tcllib/help/tclshell  1    
  375. X extended/tcllib/help/tclshell/autoload  3    
  376. X extended/tcllib/help/tclshell/autoprocs  1    
  377. X extended/tcllib/help/tclshell/buildpackagein  1    
  378. X extended/tcllib/help/tclshell/demand_load  2    
  379. X extended/tcllib/help/tclshell/flags  4    
  380. X extended/tcllib/help/tclshell/initialize  5    
  381. X extended/tcllib/help/tclshell/intro  4    
  382. X extended/tcllib/help/tclshell/load  1    
  383. X extended/tcllib/help/tclshell/loadlibindex  3    
  384. X extended/tcllib/help/tclshell/packagelib  7    
  385. X extended/tcllib/help/tclshell/packages  1    
  386. X extended/tcllib/help/tclshell/results  3    
  387. X extended/tcllib/help/tclshell/tclinit  3    
  388. X extended/tcllib/help/tclshell/unixcommands  3    
  389. X extended/tcllib/help/tclshell/utilprocs  2    
  390. X extended/tcllib/help/tclshell/variables  5    
  391. X extended/tclsrc            1    
  392. X extended/tclsrc/Makefile   3    
  393. X extended/tclsrc/arrayprocs.tcl  2    
  394. X extended/tclsrc/asgnfields.tcl  1    
  395. X extended/tclsrc/edprocs.tcl  3    
  396. X extended/tclsrc/forfile.tcl  1    
  397. X extended/tclsrc/forrecur.tcl  2    
  398. X extended/tclsrc/globrecur.tcl  2    
  399. X extended/tclsrc/help.tcl  10    
  400. X extended/tclsrc/installTcl.tcl 14    
  401. X extended/tclsrc/packages.tcl  2    
  402. X extended/tclsrc/pushd.tcl  3    
  403. X extended/tclsrc/setfuncs.tcl  6    
  404. X extended/tclsrc/showprocs.tcl  2    
  405. X extended/tclsrc/stringfile.tcl  2    
  406. X extended/tests             1    
  407. X extended/tests/all         2    
  408. X extended/tests/arrayproc.test  4    
  409. X extended/tests/asgnfield.test  3    
  410. X extended/tests/chartype.test  7    
  411. X extended/tests/chmod.test 12    
  412. X extended/tests/clock.test  4    
  413. X extended/tests/cmdtrace.test  8    
  414. X extended/tests/defs        4    
  415. X extended/tests/filescan.test  9    
  416. X extended/tests/fmath.test  9    
  417. X extended/tests/forfile.test  4    
  418. X extended/tests/forrecur.test  5    
  419. X extended/tests/globrecur.test  5    
  420. X extended/tests/help.test   9    
  421. X extended/tests/iocmds.test 10    
  422. X extended/tests/keylist.test  9    
  423. X extended/tests/list.test   5    
  424. X extended/tests/loop.test   6    
  425. X extended/tests/math.test   5    
  426. X extended/tests/pushd.test  4    
  427. X extended/tests/select.test  6    
  428. X extended/tests/setfuncs.test  6    
  429. X extended/tests/showprocs.test  4    
  430. X extended/tests/string.test  6    
  431. X extended/tests/stringfil.test  3    
  432. X extended/tests/testutil.tcl  6    
  433. X extended/tests/unixcmds.test 12    
  434. X extended/ucbsrc            1    
  435. X extended/ucbsrc/Makefile   2    
  436. X extended/ucbsrc/tclBasic.c 21    
  437. X extended/ucbsrc/ucbman.names  4    
  438. END_OF_FILE
  439. if test 11288 -ne `wc -c <'extended/MANIFEST'`; then
  440.     echo shar: \"'extended/MANIFEST'\" unpacked with wrong size!
  441. fi
  442. # end of 'extended/MANIFEST'
  443. fi
  444. if test ! -d 'extended/man' ; then
  445.     echo shar: Creating directory \"'extended/man'\"
  446.     mkdir 'extended/man'
  447. fi
  448. if test -f 'extended/man/Makefile' -a "${1}" != "-c" ; then 
  449.   echo shar: Will not clobber existing file \"'extended/man/Makefile'\"
  450. else
  451. echo shar: Extracting \"'extended/man/Makefile'\" \(122 characters\)
  452. sed "s/^X//" >'extended/man/Makefile' <<'END_OF_FILE'
  453. X#
  454. X# Makefile to clean up the extend/man directory.
  455. X#
  456. X
  457. XSHELL=/bin/sh
  458. X
  459. Xall:
  460. X
  461. Xclean:
  462. X    /bin/rm -f index.TCL
  463. X
  464. Xrealclean: clean
  465. END_OF_FILE
  466. if test 122 -ne `wc -c <'extended/man/Makefile'`; then
  467.     echo shar: \"'extended/man/Makefile'\" unpacked with wrong size!
  468. fi
  469. # end of 'extended/man/Makefile'
  470. fi
  471. if test ! -d 'extended/ossupport' ; then
  472.     echo shar: Creating directory \"'extended/ossupport'\"
  473.     mkdir 'extended/ossupport'
  474. fi
  475. if test ! -d 'extended/src' ; then
  476.     echo shar: Creating directory \"'extended/src'\"
  477.     mkdir 'extended/src'
  478. fi
  479. if test -f 'extended/src/patchlevel.h' -a "${1}" != "-c" ; then 
  480.   echo shar: Will not clobber existing file \"'extended/src/patchlevel.h'\"
  481. else
  482. echo shar: Extracting \"'extended/src/patchlevel.h'\" \(22 characters\)
  483. sed "s/^X//" >'extended/src/patchlevel.h' <<'END_OF_FILE'
  484. X
  485. X#define PATCHLEVEL 0
  486. END_OF_FILE
  487. if test 22 -ne `wc -c <'extended/src/patchlevel.h'`; then
  488.     echo shar: \"'extended/src/patchlevel.h'\" unpacked with wrong size!
  489. fi
  490. # end of 'extended/src/patchlevel.h'
  491. fi
  492. if test ! -d 'extended/tcllib' ; then
  493.     echo shar: Creating directory \"'extended/tcllib'\"
  494.     mkdir 'extended/tcllib'
  495. fi
  496. if test ! -d 'extended/tcllib/help' ; then
  497.     echo shar: Creating directory \"'extended/tcllib/help'\"
  498.     mkdir 'extended/tcllib/help'
  499. fi
  500. if test ! -d 'extended/tcllib/help/commands' ; then
  501.     echo shar: Creating directory \"'extended/tcllib/help/commands'\"
  502.     mkdir 'extended/tcllib/help/commands'
  503. fi
  504. if test -f 'extended/tcllib/help/commands/expr' -a "${1}" != "-c" ; then 
  505.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/expr'\"
  506. else
  507. echo shar: Extracting \"'extended/tcllib/help/commands/expr'\" \(195 characters\)
  508. sed "s/^X//" >'extended/tcllib/help/commands/expr' <<'END_OF_FILE'
  509. X          expr arg
  510. X               Calls the expression processor  to  evaluate  arg,  and
  511. X               returns  the  result  as  a  string.   See  the section
  512. X               EXPRESSIONS above.
  513. END_OF_FILE
  514. if test 195 -ne `wc -c <'extended/tcllib/help/commands/expr'`; then
  515.     echo shar: \"'extended/tcllib/help/commands/expr'\" unpacked with wrong size!
  516. fi
  517. # end of 'extended/tcllib/help/commands/expr'
  518. fi
  519. if test -f 'extended/tcllib/help/commands/llength' -a "${1}" != "-c" ; then 
  520.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/llength'\"
  521. else
  522. echo shar: Extracting \"'extended/tcllib/help/commands/llength'\" \(146 characters\)
  523. sed "s/^X//" >'extended/tcllib/help/commands/llength' <<'END_OF_FILE'
  524. X          llength list
  525. X               Treats  list  as  a  list  and returns a decimal string
  526. X               giving the number of elements in it.
  527. END_OF_FILE
  528. if test 146 -ne `wc -c <'extended/tcllib/help/commands/llength'`; then
  529.     echo shar: \"'extended/tcllib/help/commands/llength'\" unpacked with wrong size!
  530. fi
  531. # end of 'extended/tcllib/help/commands/llength'
  532. fi
  533. if test -f 'extended/tcllib/help/commands/pwd' -a "${1}" != "-c" ; then 
  534.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/pwd'\"
  535. else
  536. echo shar: Extracting \"'extended/tcllib/help/commands/pwd'\" \(85 characters\)
  537. sed "s/^X//" >'extended/tcllib/help/commands/pwd' <<'END_OF_FILE'
  538. X          pwd
  539. X               Returns the path name of the current working directory.
  540. END_OF_FILE
  541. if test 85 -ne `wc -c <'extended/tcllib/help/commands/pwd'`; then
  542.     echo shar: \"'extended/tcllib/help/commands/pwd'\" unpacked with wrong size!
  543. fi
  544. # end of 'extended/tcllib/help/commands/pwd'
  545. fi
  546. if test ! -d 'extended/tcllib/help/extended' ; then
  547.     echo shar: Creating directory \"'extended/tcllib/help/extended'\"
  548.     mkdir 'extended/tcllib/help/extended'
  549. fi
  550. if test -f 'extended/tcllib/help/extended/acos' -a "${1}" != "-c" ; then 
  551.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/acos'\"
  552. else
  553. echo shar: Extracting \"'extended/tcllib/help/extended/acos'\" \(86 characters\)
  554. sed "s/^X//" >'extended/tcllib/help/extended/acos' <<'END_OF_FILE'
  555. X
  556. X
  557. X          acos num
  558. X               Returns the arccosine of num.  num is in radians.
  559. END_OF_FILE
  560. if test 86 -ne `wc -c <'extended/tcllib/help/extended/acos'`; then
  561.     echo shar: \"'extended/tcllib/help/extended/acos'\" unpacked with wrong size!
  562. fi
  563. # end of 'extended/tcllib/help/extended/acos'
  564. fi
  565. if test -f 'extended/tcllib/help/extended/asin' -a "${1}" != "-c" ; then 
  566.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/asin'\"
  567. else
  568. echo shar: Extracting \"'extended/tcllib/help/extended/asin'\" \(83 characters\)
  569. sed "s/^X//" >'extended/tcllib/help/extended/asin' <<'END_OF_FILE'
  570. X
  571. X
  572. X          asin num
  573. X               Returns the arcsin of num.  num is in radians.
  574. END_OF_FILE
  575. if test 83 -ne `wc -c <'extended/tcllib/help/extended/asin'`; then
  576.     echo shar: \"'extended/tcllib/help/extended/asin'\" unpacked with wrong size!
  577. fi
  578. # end of 'extended/tcllib/help/extended/asin'
  579. fi
  580. if test -f 'extended/tcllib/help/extended/atan' -a "${1}" != "-c" ; then 
  581.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/atan'\"
  582. else
  583. echo shar: Extracting \"'extended/tcllib/help/extended/atan'\" \(87 characters\)
  584. sed "s/^X//" >'extended/tcllib/help/extended/atan' <<'END_OF_FILE'
  585. X
  586. X
  587. X          atan num
  588. X               Returns the arctangent of num.  num is in radians.
  589. END_OF_FILE
  590. if test 87 -ne `wc -c <'extended/tcllib/help/extended/atan'`; then
  591.     echo shar: \"'extended/tcllib/help/extended/atan'\" unpacked with wrong size!
  592. fi
  593. # end of 'extended/tcllib/help/extended/atan'
  594. fi
  595. if test -f 'extended/tcllib/help/extended/ceil' -a "${1}" != "-c" ; then 
  596.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/ceil'\"
  597. else
  598. echo shar: Extracting \"'extended/tcllib/help/extended/ceil'\" \(116 characters\)
  599. sed "s/^X//" >'extended/tcllib/help/extended/ceil' <<'END_OF_FILE'
  600. X
  601. X
  602. X          ceil num
  603. X               Returns the smallest integer not less than num
  604. X               (floating point).
  605. END_OF_FILE
  606. if test 116 -ne `wc -c <'extended/tcllib/help/extended/ceil'`; then
  607.     echo shar: \"'extended/tcllib/help/extended/ceil'\" unpacked with wrong size!
  608. fi
  609. # end of 'extended/tcllib/help/extended/ceil'
  610. fi
  611. if test -f 'extended/tcllib/help/extended/chgrp' -a "${1}" != "-c" ; then 
  612.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/chgrp'\"
  613. else
  614. echo shar: Extracting \"'extended/tcllib/help/extended/chgrp'\" \(160 characters\)
  615. sed "s/^X//" >'extended/tcllib/help/extended/chgrp' <<'END_OF_FILE'
  616. X
  617. X
  618. X          chgrp group filelist
  619. X               Set group of each file in the list filelist to group,
  620. X               which is a group name or numeric group id.
  621. END_OF_FILE
  622. if test 160 -ne `wc -c <'extended/tcllib/help/extended/chgrp'`; then
  623.     echo shar: \"'extended/tcllib/help/extended/chgrp'\" unpacked with wrong size!
  624. fi
  625. # end of 'extended/tcllib/help/extended/chgrp'
  626. fi
  627. if test -f 'extended/tcllib/help/extended/clength' -a "${1}" != "-c" ; then 
  628.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/clength'\"
  629. else
  630. echo shar: Extracting \"'extended/tcllib/help/extended/clength'\" \(173 characters\)
  631. sed "s/^X//" >'extended/tcllib/help/extended/clength' <<'END_OF_FILE'
  632. X
  633. X
  634. X          clength string
  635. X               Returns the length of string in characters. This
  636. X               command is a shortcut for:
  637. X                   string length string
  638. END_OF_FILE
  639. if test 173 -ne `wc -c <'extended/tcllib/help/extended/clength'`; then
  640.     echo shar: \"'extended/tcllib/help/extended/clength'\" unpacked with wrong size!
  641. fi
  642. # end of 'extended/tcllib/help/extended/clength'
  643. fi
  644. if test -f 'extended/tcllib/help/extended/copyfile' -a "${1}" != "-c" ; then 
  645.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/copyfile'\"
  646. else
  647. echo shar: Extracting \"'extended/tcllib/help/extended/copyfile'\" \(172 characters\)
  648. sed "s/^X//" >'extended/tcllib/help/extended/copyfile' <<'END_OF_FILE'
  649. X
  650. X
  651. X          copyfile handle1 handle2
  652. X               Copies the rest of file specified by handle1 from its
  653. X               current position to the file specified by handle2.
  654. END_OF_FILE
  655. if test 172 -ne `wc -c <'extended/tcllib/help/extended/copyfile'`; then
  656.     echo shar: \"'extended/tcllib/help/extended/copyfile'\" unpacked with wrong size!
  657. fi
  658. # end of 'extended/tcllib/help/extended/copyfile'
  659. fi
  660. if test -f 'extended/tcllib/help/extended/cos' -a "${1}" != "-c" ; then 
  661.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/cos'\"
  662. else
  663. echo shar: Extracting \"'extended/tcllib/help/extended/cos'\" \(82 characters\)
  664. sed "s/^X//" >'extended/tcllib/help/extended/cos' <<'END_OF_FILE'
  665. X
  666. X
  667. X          cos num
  668. X               Returns the cosine of num.  num is in radians.
  669. END_OF_FILE
  670. if test 82 -ne `wc -c <'extended/tcllib/help/extended/cos'`; then
  671.     echo shar: \"'extended/tcllib/help/extended/cos'\" unpacked with wrong size!
  672. fi
  673. # end of 'extended/tcllib/help/extended/cos'
  674. fi
  675. if test -f 'extended/tcllib/help/extended/cosh' -a "${1}" != "-c" ; then 
  676.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/cosh'\"
  677. else
  678. echo shar: Extracting \"'extended/tcllib/help/extended/cosh'\" \(74 characters\)
  679. sed "s/^X//" >'extended/tcllib/help/extended/cosh' <<'END_OF_FILE'
  680. X
  681. X
  682. X          cosh num
  683. X               Returns the hyperbolic cosine of num.
  684. END_OF_FILE
  685. if test 74 -ne `wc -c <'extended/tcllib/help/extended/cosh'`; then
  686.     echo shar: \"'extended/tcllib/help/extended/cosh'\" unpacked with wrong size!
  687. fi
  688. # end of 'extended/tcllib/help/extended/cosh'
  689. fi
  690. if test -f 'extended/tcllib/help/extended/echo' -a "${1}" != "-c" ; then 
  691.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/echo'\"
  692. else
  693. echo shar: Extracting \"'extended/tcllib/help/extended/echo'\" \(97 characters\)
  694. sed "s/^X//" >'extended/tcllib/help/extended/echo' <<'END_OF_FILE'
  695. X
  696. X
  697. X          echo str1 [str2..]
  698. X               Print the strings to stdout followed by a newline.
  699. END_OF_FILE
  700. if test 97 -ne `wc -c <'extended/tcllib/help/extended/echo'`; then
  701.     echo shar: \"'extended/tcllib/help/extended/echo'\" unpacked with wrong size!
  702. fi
  703. # end of 'extended/tcllib/help/extended/echo'
  704. fi
  705. if test -f 'extended/tcllib/help/extended/execvp' -a "${1}" != "-c" ; then 
  706.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/execvp'\"
  707. else
  708. echo shar: Extracting \"'extended/tcllib/help/extended/execvp'\" \(161 characters\)
  709. sed "s/^X//" >'extended/tcllib/help/extended/execvp' <<'END_OF_FILE'
  710. X
  711. X
  712. X          execvp prog [arg1...argN]
  713. X               Do an execvp, replacing the current program with prog
  714. X               and passing the arguments arg1...argN.
  715. END_OF_FILE
  716. if test 161 -ne `wc -c <'extended/tcllib/help/extended/execvp'`; then
  717.     echo shar: \"'extended/tcllib/help/extended/execvp'\" unpacked with wrong size!
  718. fi
  719. # end of 'extended/tcllib/help/extended/execvp'
  720. fi
  721. if test -f 'extended/tcllib/help/extended/exp' -a "${1}" != "-c" ; then 
  722.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/exp'\"
  723. else
  724. echo shar: Extracting \"'extended/tcllib/help/extended/exp'\" \(66 characters\)
  725. sed "s/^X//" >'extended/tcllib/help/extended/exp' <<'END_OF_FILE'
  726. X
  727. X
  728. X          exp num
  729. X               Returns e to the power of num.
  730. END_OF_FILE
  731. if test 66 -ne `wc -c <'extended/tcllib/help/extended/exp'`; then
  732.     echo shar: \"'extended/tcllib/help/extended/exp'\" unpacked with wrong size!
  733. fi
  734. # end of 'extended/tcllib/help/extended/exp'
  735. fi
  736. if test -f 'extended/tcllib/help/extended/fabs' -a "${1}" != "-c" ; then 
  737.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/fabs'\"
  738. else
  739. echo shar: Extracting \"'extended/tcllib/help/extended/fabs'\" \(88 characters\)
  740. sed "s/^X//" >'extended/tcllib/help/extended/fabs' <<'END_OF_FILE'
  741. X
  742. X
  743. X          fabs num
  744. X               Returns the absolute value of num (floating point).
  745. END_OF_FILE
  746. if test 88 -ne `wc -c <'extended/tcllib/help/extended/fabs'`; then
  747.     echo shar: \"'extended/tcllib/help/extended/fabs'\" unpacked with wrong size!
  748. fi
  749. # end of 'extended/tcllib/help/extended/fabs'
  750. fi
  751. if test -f 'extended/tcllib/help/extended/floor' -a "${1}" != "-c" ; then 
  752.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/floor'\"
  753. else
  754. echo shar: Extracting \"'extended/tcllib/help/extended/floor'\" \(119 characters\)
  755. sed "s/^X//" >'extended/tcllib/help/extended/floor' <<'END_OF_FILE'
  756. X
  757. X
  758. X          floor num
  759. X               Returns the largest integer not greater than num
  760. X               (floating point).
  761. END_OF_FILE
  762. if test 119 -ne `wc -c <'extended/tcllib/help/extended/floor'`; then
  763.     echo shar: \"'extended/tcllib/help/extended/floor'\" unpacked with wrong size!
  764. fi
  765. # end of 'extended/tcllib/help/extended/floor'
  766. fi
  767. if test -f 'extended/tcllib/help/extended/fmod' -a "${1}" != "-c" ; then 
  768.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/fmod'\"
  769. else
  770. echo shar: Extracting \"'extended/tcllib/help/extended/fmod'\" \(68 characters\)
  771. sed "s/^X//" >'extended/tcllib/help/extended/fmod' <<'END_OF_FILE'
  772. X
  773. X
  774. X          fmod num1 num2
  775. X               Returns num1 modulo num2.
  776. END_OF_FILE
  777. if test 68 -ne `wc -c <'extended/tcllib/help/extended/fmod'`; then
  778.     echo shar: \"'extended/tcllib/help/extended/fmod'\" unpacked with wrong size!
  779. fi
  780. # end of 'extended/tcllib/help/extended/fmod'
  781. fi
  782. if test -f 'extended/tcllib/help/extended/link' -a "${1}" != "-c" ; then 
  783.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/link'\"
  784. else
  785. echo shar: Extracting \"'extended/tcllib/help/extended/link'\" \(142 characters\)
  786. sed "s/^X//" >'extended/tcllib/help/extended/link' <<'END_OF_FILE'
  787. X
  788. X
  789. X          link srcpath destpath
  790. X               Create a directory entry, destpath, linking it to the
  791. X               existing file, srcpath.
  792. END_OF_FILE
  793. if test 142 -ne `wc -c <'extended/tcllib/help/extended/link'`; then
  794.     echo shar: \"'extended/tcllib/help/extended/link'\" unpacked with wrong size!
  795. fi
  796. # end of 'extended/tcllib/help/extended/link'
  797. fi
  798. if test -f 'extended/tcllib/help/extended/log' -a "${1}" != "-c" ; then 
  799.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/log'\"
  800. else
  801. echo shar: Extracting \"'extended/tcllib/help/extended/log'\" \(73 characters\)
  802. sed "s/^X//" >'extended/tcllib/help/extended/log' <<'END_OF_FILE'
  803. X
  804. X
  805. X          log num
  806. X               Returns the natural logarithm of num.
  807. END_OF_FILE
  808. if test 73 -ne `wc -c <'extended/tcllib/help/extended/log'`; then
  809.     echo shar: \"'extended/tcllib/help/extended/log'\" unpacked with wrong size!
  810. fi
  811. # end of 'extended/tcllib/help/extended/log'
  812. fi
  813. if test -f 'extended/tcllib/help/extended/log10' -a "${1}" != "-c" ; then 
  814.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/log10'\"
  815. else
  816. echo shar: Extracting \"'extended/tcllib/help/extended/log10'\" \(75 characters\)
  817. sed "s/^X//" >'extended/tcllib/help/extended/log10' <<'END_OF_FILE'
  818. X
  819. X
  820. X          log10 num
  821. X               Returns the logarithm base 10 of num.
  822. END_OF_FILE
  823. if test 75 -ne `wc -c <'extended/tcllib/help/extended/log10'`; then
  824.     echo shar: \"'extended/tcllib/help/extended/log10'\" unpacked with wrong size!
  825. fi
  826. # end of 'extended/tcllib/help/extended/log10'
  827. fi
  828. if test -f 'extended/tcllib/help/extended/pow' -a "${1}" != "-c" ; then 
  829.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/pow'\"
  830. else
  831. echo shar: Extracting \"'extended/tcllib/help/extended/pow'\" \(76 characters\)
  832. sed "s/^X//" >'extended/tcllib/help/extended/pow' <<'END_OF_FILE'
  833. X
  834. X
  835. X          pow num1 num2
  836. X               Returns num1 to the power of num2.
  837. END_OF_FILE
  838. if test 76 -ne `wc -c <'extended/tcllib/help/extended/pow'`; then
  839.     echo shar: \"'extended/tcllib/help/extended/pow'\" unpacked with wrong size!
  840. fi
  841. # end of 'extended/tcllib/help/extended/pow'
  842. fi
  843. if test -f 'extended/tcllib/help/extended/replicate' -a "${1}" != "-c" ; then 
  844.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/replicate'\"
  845. else
  846. echo shar: Extracting \"'extended/tcllib/help/extended/replicate'\" \(89 characters\)
  847. sed "s/^X//" >'extended/tcllib/help/extended/replicate' <<'END_OF_FILE'
  848. X
  849. X
  850. X          replicate string count
  851. X               Returns string replicated count times.
  852. END_OF_FILE
  853. if test 89 -ne `wc -c <'extended/tcllib/help/extended/replicate'`; then
  854.     echo shar: \"'extended/tcllib/help/extended/replicate'\" unpacked with wrong size!
  855. fi
  856. # end of 'extended/tcllib/help/extended/replicate'
  857. fi
  858. if test -f 'extended/tcllib/help/extended/rmdir' -a "${1}" != "-c" ; then 
  859.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/rmdir'\"
  860. else
  861. echo shar: Extracting \"'extended/tcllib/help/extended/rmdir'\" \(93 characters\)
  862. sed "s/^X//" >'extended/tcllib/help/extended/rmdir' <<'END_OF_FILE'
  863. X
  864. X
  865. X          rmdir dirList
  866. X               Remove each of the directories in the list dirList.
  867. END_OF_FILE
  868. if test 93 -ne `wc -c <'extended/tcllib/help/extended/rmdir'`; then
  869.     echo shar: \"'extended/tcllib/help/extended/rmdir'\" unpacked with wrong size!
  870. fi
  871. # end of 'extended/tcllib/help/extended/rmdir'
  872. fi
  873. if test -f 'extended/tcllib/help/extended/sin' -a "${1}" != "-c" ; then 
  874.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/sin'\"
  875. else
  876. echo shar: Extracting \"'extended/tcllib/help/extended/sin'\" \(79 characters\)
  877. sed "s/^X//" >'extended/tcllib/help/extended/sin' <<'END_OF_FILE'
  878. X
  879. X
  880. X          sin num
  881. X               Returns the sin of num.  num is in radians.
  882. END_OF_FILE
  883. if test 79 -ne `wc -c <'extended/tcllib/help/extended/sin'`; then
  884.     echo shar: \"'extended/tcllib/help/extended/sin'\" unpacked with wrong size!
  885. fi
  886. # end of 'extended/tcllib/help/extended/sin'
  887. fi
  888. if test -f 'extended/tcllib/help/extended/sinh' -a "${1}" != "-c" ; then 
  889.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/sinh'\"
  890. else
  891. echo shar: Extracting \"'extended/tcllib/help/extended/sinh'\" \(71 characters\)
  892. sed "s/^X//" >'extended/tcllib/help/extended/sinh' <<'END_OF_FILE'
  893. X
  894. X
  895. X          sinh num
  896. X               Returns the hyperbolic sin of num.
  897. END_OF_FILE
  898. if test 71 -ne `wc -c <'extended/tcllib/help/extended/sinh'`; then
  899.     echo shar: \"'extended/tcllib/help/extended/sinh'\" unpacked with wrong size!
  900. fi
  901. # end of 'extended/tcllib/help/extended/sinh'
  902. fi
  903. if test -f 'extended/tcllib/help/extended/sleep' -a "${1}" != "-c" ; then 
  904.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/sleep'\"
  905. else
  906. echo shar: Extracting \"'extended/tcllib/help/extended/sleep'\" \(76 characters\)
  907. sed "s/^X//" >'extended/tcllib/help/extended/sleep' <<'END_OF_FILE'
  908. X
  909. X
  910. X          sleep seconds
  911. X               Sleep the TCL process for seconds.
  912. END_OF_FILE
  913. if test 76 -ne `wc -c <'extended/tcllib/help/extended/sleep'`; then
  914.     echo shar: \"'extended/tcllib/help/extended/sleep'\" unpacked with wrong size!
  915. fi
  916. # end of 'extended/tcllib/help/extended/sleep'
  917. fi
  918. if test -f 'extended/tcllib/help/extended/sqrt' -a "${1}" != "-c" ; then 
  919.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/sqrt'\"
  920. else
  921. echo shar: Extracting \"'extended/tcllib/help/extended/sqrt'\" \(68 characters\)
  922. sed "s/^X//" >'extended/tcllib/help/extended/sqrt' <<'END_OF_FILE'
  923. X
  924. X
  925. X          sqrt num
  926. X               Returns the square root of num.
  927. END_OF_FILE
  928. if test 68 -ne `wc -c <'extended/tcllib/help/extended/sqrt'`; then
  929.     echo shar: \"'extended/tcllib/help/extended/sqrt'\" unpacked with wrong size!
  930. fi
  931. # end of 'extended/tcllib/help/extended/sqrt'
  932. fi
  933. if test -f 'extended/tcllib/help/extended/tan' -a "${1}" != "-c" ; then 
  934.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/tan'\"
  935. else
  936. echo shar: Extracting \"'extended/tcllib/help/extended/tan'\" \(83 characters\)
  937. sed "s/^X//" >'extended/tcllib/help/extended/tan' <<'END_OF_FILE'
  938. X
  939. X
  940. X          tan num
  941. X               Returns the tangent of num.  num is in radians.
  942. END_OF_FILE
  943. if test 83 -ne `wc -c <'extended/tcllib/help/extended/tan'`; then
  944.     echo shar: \"'extended/tcllib/help/extended/tan'\" unpacked with wrong size!
  945. fi
  946. # end of 'extended/tcllib/help/extended/tan'
  947. fi
  948. if test -f 'extended/tcllib/help/extended/tanh' -a "${1}" != "-c" ; then 
  949.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/tanh'\"
  950. else
  951. echo shar: Extracting \"'extended/tcllib/help/extended/tanh'\" \(75 characters\)
  952. sed "s/^X//" >'extended/tcllib/help/extended/tanh' <<'END_OF_FILE'
  953. X
  954. X
  955. X          tanh num
  956. X               Returns the hyperbolic tangent of num.
  957. END_OF_FILE
  958. if test 75 -ne `wc -c <'extended/tcllib/help/extended/tanh'`; then
  959.     echo shar: \"'extended/tcllib/help/extended/tanh'\" unpacked with wrong size!
  960. fi
  961. # end of 'extended/tcllib/help/extended/tanh'
  962. fi
  963. if test -f 'extended/tcllib/help/extended/umask' -a "${1}" != "-c" ; then 
  964.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/umask'\"
  965. else
  966. echo shar: Extracting \"'extended/tcllib/help/extended/umask'\" \(193 characters\)
  967. sed "s/^X//" >'extended/tcllib/help/extended/umask' <<'END_OF_FILE'
  968. X
  969. X
  970. X          umask [octalmask]
  971. X               Sets file-creation mode mask to the octal value of
  972. X               octalmask.  If octalmask is omitted, the current mask
  973. X               is returned.
  974. END_OF_FILE
  975. if test 193 -ne `wc -c <'extended/tcllib/help/extended/umask'`; then
  976.     echo shar: \"'extended/tcllib/help/extended/umask'\" unpacked with wrong size!
  977. fi
  978. # end of 'extended/tcllib/help/extended/umask'
  979. fi
  980. if test -f 'extended/tcllib/help/extended/unlink' -a "${1}" != "-c" ; then 
  981.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/unlink'\"
  982. else
  983. echo shar: Extracting \"'extended/tcllib/help/extended/unlink'\" \(122 characters\)
  984. sed "s/^X//" >'extended/tcllib/help/extended/unlink' <<'END_OF_FILE'
  985. X
  986. X
  987. X          unlink filelist
  988. X               Delete (unlink) the files whose names are in the list
  989. X               filelist.
  990. END_OF_FILE
  991. if test 122 -ne `wc -c <'extended/tcllib/help/extended/unlink'`; then
  992.     echo shar: \"'extended/tcllib/help/extended/unlink'\" unpacked with wrong size!
  993. fi
  994. # end of 'extended/tcllib/help/extended/unlink'
  995. fi
  996. if test ! -d 'extended/tcllib/help/intro' ; then
  997.     echo shar: Creating directory \"'extended/tcllib/help/intro'\"
  998.     mkdir 'extended/tcllib/help/intro'
  999. fi
  1000. if test ! -d 'extended/tcllib/help/misc' ; then
  1001.     echo shar: Creating directory \"'extended/tcllib/help/misc'\"
  1002.     mkdir 'extended/tcllib/help/misc'
  1003. fi
  1004. if test ! -d 'extended/tcllib/help/tcl.tlib' ; then
  1005.     echo shar: Creating directory \"'extended/tcllib/help/tcl.tlib'\"
  1006.     mkdir 'extended/tcllib/help/tcl.tlib'
  1007. fi
  1008. if test -f 'extended/tcllib/help/tcl.tlib/dirs' -a "${1}" != "-c" ; then 
  1009.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/dirs'\"
  1010. else
  1011. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/dirs'\" \(62 characters\)
  1012. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/dirs' <<'END_OF_FILE'
  1013. X
  1014. X
  1015. X          dirs List the directories in the directory stack.
  1016. END_OF_FILE
  1017. if test 62 -ne `wc -c <'extended/tcllib/help/tcl.tlib/dirs'`; then
  1018.     echo shar: \"'extended/tcllib/help/tcl.tlib/dirs'\" unpacked with wrong size!
  1019. fi
  1020. # end of 'extended/tcllib/help/tcl.tlib/dirs'
  1021. fi
  1022. if test -f 'extended/tcllib/help/tcl.tlib/intersect' -a "${1}" != "-c" ; then 
  1023.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/intersect'\"
  1024. else
  1025. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/intersect'\" \(95 characters\)
  1026. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/intersect' <<'END_OF_FILE'
  1027. X
  1028. X
  1029. X          intersect lista listb
  1030. X               Return the logical intersection of two lists.
  1031. END_OF_FILE
  1032. if test 95 -ne `wc -c <'extended/tcllib/help/tcl.tlib/intersect'`; then
  1033.     echo shar: \"'extended/tcllib/help/tcl.tlib/intersect'\" unpacked with wrong size!
  1034. fi
  1035. # end of 'extended/tcllib/help/tcl.tlib/intersect'
  1036. fi
  1037. if test -f 'extended/tcllib/help/tcl.tlib/popd' -a "${1}" != "-c" ; then 
  1038.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/popd'\"
  1039. else
  1040. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/popd'\" \(135 characters\)
  1041. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/popd' <<'END_OF_FILE'
  1042. X
  1043. X
  1044. X          popd
  1045. X               Pop the top directory entry from the directory stack
  1046. X               and make it the current directory.
  1047. END_OF_FILE
  1048. if test 135 -ne `wc -c <'extended/tcllib/help/tcl.tlib/popd'`; then
  1049.     echo shar: \"'extended/tcllib/help/tcl.tlib/popd'\" unpacked with wrong size!
  1050. fi
  1051. # end of 'extended/tcllib/help/tcl.tlib/popd'
  1052. fi
  1053. if test -f 'extended/tcllib/help/tcl.tlib/read_file' -a "${1}" != "-c" ; then 
  1054.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/read_file'\"
  1055. else
  1056. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/read_file'\" \(119 characters\)
  1057. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/read_file' <<'END_OF_FILE'
  1058. X
  1059. X
  1060. X          read_file fileName
  1061. X               Read the named file and returns the contents as a
  1062. X               string.
  1063. END_OF_FILE
  1064. if test 119 -ne `wc -c <'extended/tcllib/help/tcl.tlib/read_file'`; then
  1065.     echo shar: \"'extended/tcllib/help/tcl.tlib/read_file'\" unpacked with wrong size!
  1066. fi
  1067. # end of 'extended/tcllib/help/tcl.tlib/read_file'
  1068. fi
  1069. if test -f 'extended/tcllib/help/tcl.tlib/showproc' -a "${1}" != "-c" ; then 
  1070.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/showproc'\"
  1071. else
  1072. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/showproc'\" \(144 characters\)
  1073. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/showproc' <<'END_OF_FILE'
  1074. X
  1075. X
  1076. X          showproc procname
  1077. X               List the definition of the named procedure, loading it
  1078. X               if it is not already loaded.
  1079. END_OF_FILE
  1080. if test 144 -ne `wc -c <'extended/tcllib/help/tcl.tlib/showproc'`; then
  1081.     echo shar: \"'extended/tcllib/help/tcl.tlib/showproc'\" unpacked with wrong size!
  1082. fi
  1083. # end of 'extended/tcllib/help/tcl.tlib/showproc'
  1084. fi
  1085. if test -f 'extended/tcllib/help/tcl.tlib/showprocs' -a "${1}" != "-c" ; then 
  1086.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/showprocs'\"
  1087. else
  1088. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/showprocs'\" \(167 characters\)
  1089. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/showprocs' <<'END_OF_FILE'
  1090. X
  1091. X
  1092. X          showprocs [procname...]
  1093. X               List the definition of all of the named procedures, or
  1094. X               all defined procedures if none are specified.
  1095. END_OF_FILE
  1096. if test 167 -ne `wc -c <'extended/tcllib/help/tcl.tlib/showprocs'`; then
  1097.     echo shar: \"'extended/tcllib/help/tcl.tlib/showprocs'\" unpacked with wrong size!
  1098. fi
  1099. # end of 'extended/tcllib/help/tcl.tlib/showprocs'
  1100. fi
  1101. if test -f 'extended/tcllib/help/tcl.tlib/union' -a "${1}" != "-c" ; then 
  1102.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/union'\"
  1103. else
  1104. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/union'\" \(149 characters\)
  1105. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/union' <<'END_OF_FILE'
  1106. X
  1107. X
  1108. X          union lista listb
  1109. X               Return the logical union of the two specified lists.
  1110. X               Any duplicate elements are removed.
  1111. END_OF_FILE
  1112. if test 149 -ne `wc -c <'extended/tcllib/help/tcl.tlib/union'`; then
  1113.     echo shar: \"'extended/tcllib/help/tcl.tlib/union'\" unpacked with wrong size!
  1114. fi
  1115. # end of 'extended/tcllib/help/tcl.tlib/union'
  1116. fi
  1117. if test -f 'extended/tcllib/help/tcl.tlib/write_file' -a "${1}" != "-c" ; then 
  1118.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/write_file'\"
  1119. else
  1120. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/write_file'\" \(104 characters\)
  1121. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/write_file' <<'END_OF_FILE'
  1122. X
  1123. X
  1124. X          write_file fileName stringVar
  1125. X               Writes the specified string to the named file.
  1126. END_OF_FILE
  1127. if test 104 -ne `wc -c <'extended/tcllib/help/tcl.tlib/write_file'`; then
  1128.     echo shar: \"'extended/tcllib/help/tcl.tlib/write_file'\" unpacked with wrong size!
  1129. fi
  1130. # end of 'extended/tcllib/help/tcl.tlib/write_file'
  1131. fi
  1132. if test ! -d 'extended/tcllib/help/tclshell' ; then
  1133.     echo shar: Creating directory \"'extended/tcllib/help/tclshell'\"
  1134.     mkdir 'extended/tcllib/help/tclshell'
  1135. fi
  1136. if test -f 'extended/tcllib/help/tclshell/autoprocs' -a "${1}" != "-c" ; then 
  1137.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/autoprocs'\"
  1138. else
  1139. echo shar: Extracting \"'extended/tcllib/help/tclshell/autoprocs'\" \(101 characters\)
  1140. sed "s/^X//" >'extended/tcllib/help/tclshell/autoprocs' <<'END_OF_FILE'
  1141. X
  1142. X          autoprocs Lists the names of all known autoload and package
  1143. X          library procedures.
  1144. END_OF_FILE
  1145. if test 101 -ne `wc -c <'extended/tcllib/help/tclshell/autoprocs'`; then
  1146.     echo shar: \"'extended/tcllib/help/tclshell/autoprocs'\" unpacked with wrong size!
  1147. fi
  1148. # end of 'extended/tcllib/help/tclshell/autoprocs'
  1149. fi
  1150. if test -f 'extended/tcllib/help/tclshell/buildpackagein' -a "${1}" != "-c" ; then 
  1151.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/buildpackagein'\"
  1152. else
  1153. echo shar: Extracting \"'extended/tcllib/help/tclshell/buildpackagein'\" \(149 characters\)
  1154. sed "s/^X//" >'extended/tcllib/help/tclshell/buildpackagein' <<'END_OF_FILE'
  1155. X
  1156. X          buildpackageindex libfile Build an index for a package
  1157. X          library.  The the libfile name must end with the suffix
  1158. X          .tlib.
  1159. END_OF_FILE
  1160. if test 149 -ne `wc -c <'extended/tcllib/help/tclshell/buildpackagein'`; then
  1161.     echo shar: \"'extended/tcllib/help/tclshell/buildpackagein'\" unpacked with wrong size!
  1162. fi
  1163. # end of 'extended/tcllib/help/tclshell/buildpackagein'
  1164. fi
  1165. if test -f 'extended/tcllib/help/tclshell/load' -a "${1}" != "-c" ; then 
  1166.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/load'\"
  1167. else
  1168. echo shar: Extracting \"'extended/tcllib/help/tclshell/load'\" \(114 characters\)
  1169. sed "s/^X//" >'extended/tcllib/help/tclshell/load' <<'END_OF_FILE'
  1170. X
  1171. X          load file Source a file, as with the source command, except
  1172. X          search the TCLPATH for the file.
  1173. END_OF_FILE
  1174. if test 114 -ne `wc -c <'extended/tcllib/help/tclshell/load'`; then
  1175.     echo shar: \"'extended/tcllib/help/tclshell/load'\" unpacked with wrong size!
  1176. fi
  1177. # end of 'extended/tcllib/help/tclshell/load'
  1178. fi
  1179. if test -f 'extended/tcllib/help/tclshell/packages' -a "${1}" != "-c" ; then 
  1180.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/packages'\"
  1181. else
  1182. echo shar: Extracting \"'extended/tcllib/help/tclshell/packages'\" \(71 characters\)
  1183. sed "s/^X//" >'extended/tcllib/help/tclshell/packages' <<'END_OF_FILE'
  1184. X
  1185. X          packages Returns a list of the names of all known packages.
  1186. END_OF_FILE
  1187. if test 71 -ne `wc -c <'extended/tcllib/help/tclshell/packages'`; then
  1188.     echo shar: \"'extended/tcllib/help/tclshell/packages'\" unpacked with wrong size!
  1189. fi
  1190. # end of 'extended/tcllib/help/tclshell/packages'
  1191. fi
  1192. if test ! -d 'extended/tclsrc' ; then
  1193.     echo shar: Creating directory \"'extended/tclsrc'\"
  1194.     mkdir 'extended/tclsrc'
  1195. fi
  1196. if test -f 'extended/tclsrc/asgnfields.tcl' -a "${1}" != "-c" ; then 
  1197.   echo shar: Will not clobber existing file \"'extended/tclsrc/asgnfields.tcl'\"
  1198. else
  1199. echo shar: Extracting \"'extended/tclsrc/asgnfields.tcl'\" \(195 characters\)
  1200. sed "s/^X//" >'extended/tclsrc/asgnfields.tcl' <<'END_OF_FILE'
  1201. X#@package: assign_fields assign_fields
  1202. X
  1203. Xproc assign_fields {list args} {
  1204. X    set listIndex -1
  1205. X    foreach varName $args {
  1206. X    uplevel 1 "set $varName [list [lindex $list [incr listIndex]]]"
  1207. X    }
  1208. X}
  1209. END_OF_FILE
  1210. if test 195 -ne `wc -c <'extended/tclsrc/asgnfields.tcl'`; then
  1211.     echo shar: \"'extended/tclsrc/asgnfields.tcl'\" unpacked with wrong size!
  1212. fi
  1213. # end of 'extended/tclsrc/asgnfields.tcl'
  1214. fi
  1215. if test -f 'extended/tclsrc/forfile.tcl' -a "${1}" != "-c" ; then 
  1216.   echo shar: Will not clobber existing file \"'extended/tclsrc/forfile.tcl'\"
  1217. else
  1218. echo shar: Extracting \"'extended/tclsrc/forfile.tcl'\" \(195 characters\)
  1219. sed "s/^X//" >'extended/tclsrc/forfile.tcl' <<'END_OF_FILE'
  1220. X#@package: forfile for_file
  1221. X
  1222. Xproc for_file {var filename code} {
  1223. X    upvar $var line
  1224. X    set fp [open $filename r]
  1225. X    while {[gets $fp line] >= 0} {
  1226. X        uplevel $code
  1227. X    }
  1228. X    close $fp
  1229. X}
  1230. X
  1231. END_OF_FILE
  1232. if test 195 -ne `wc -c <'extended/tclsrc/forfile.tcl'`; then
  1233.     echo shar: \"'extended/tclsrc/forfile.tcl'\" unpacked with wrong size!
  1234. fi
  1235. # end of 'extended/tclsrc/forfile.tcl'
  1236. fi
  1237. if test ! -d 'extended/tests' ; then
  1238.     echo shar: Creating directory \"'extended/tests'\"
  1239.     mkdir 'extended/tests'
  1240. fi
  1241. if test ! -d 'extended/ucbsrc' ; then
  1242.     echo shar: Creating directory \"'extended/ucbsrc'\"
  1243.     mkdir 'extended/ucbsrc'
  1244. fi
  1245. echo shar: End of archive 1 \(of 23\).
  1246. cp /dev/null ark1isdone
  1247. MISSING=""
  1248. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ; do
  1249.     if test ! -f ark${I}isdone ; then
  1250.     MISSING="${MISSING} ${I}"
  1251.     fi
  1252. done
  1253. if test "${MISSING}" = "" ; then
  1254.     echo You have unpacked all 23 archives.
  1255.     echo "Now cd to "extended", edit the makefile, then do a "make""
  1256.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1257. else
  1258.     echo You still need to unpack the following archives:
  1259.     echo "        " ${MISSING}
  1260. fi
  1261. ##  End of shell archive.
  1262. exit 0
  1263.  
  1264. exit 0 # Just in case...
  1265. -- 
  1266. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1267. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1268. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1269. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1270.